home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TRAN.FOR < prev    next >
Text File  |  1988-09-15  |  218b  |  16 lines
  1. $STORAGE:2
  2.       PROGRAM TRAN
  3. C
  4.       INTEGER*4 ISEED
  5. C
  6.       ISEED=1
  7.       DO 10 I=1,20
  8.       X= RAN(ISEED)
  9.       WRITE(*,50)X,ISEED
  10.  50   FORMAT(' X=',F10.6,I20)
  11.  10   CONTINUE
  12.       STOP
  13.       END
  14.  
  15.  
  16.